(prompt "Directory "@default-dest" does not exist!\nCreate it now?")
(help "YAM places all its scripts within the Rexx folder. Proceeding with this installation will result in the YAM:Rexx folder being created.")
(confirm 0)
)
)
)
(set vernum_old (getversion @hurlfile-dest))
(set ver_old (/ vernum_old 65536))
(set rev_old (- vernum_old (* ver_old 65536) ) )
(message
("You are about to install Hurl version %ld.%ld.\n" ver_new rev_new)
("You currently have version %ld.%ld installed" ver_old rev_old)
)
(if (exists @default-dest (noreq))
(
(copyfiles
(prompt "Copying Hurl to " @default-dest)
(help @copyfiles-help)
(source "Hurl")
(dest @default-dest)
(files)
)
)
)
(if (exists @hurlfile-dest (noreq))
(
(set #mode
(askchoice
(prompt "Do you want to configure YAM for Hurl?")
(help @askchoice-help)
(choices "Yes - Configure YAM for Hurl usage"
"Yes - Configure YAM and set Hurl to auto mode"
"No - I'll do it myself!")
(default 0)
)
)
(if (= #mode 0)
((rexx "configyam4hurl.rexx"))
)
(if (= #mode 1)
((rexx "configyam4hurl.rexx auto"))
)
(set #yamsize (getsize "YAM:YAM"))
(if (= #yamsize 523612)
(
(set #patch
(askchoice
(prompt "YAM v2p7 has a bug which prevents the use of Hurl. Would you like to patch YAM right now? (NOTE: If your copy of YAM2p7 is already patched, then doing this a second time will unpatch YAM)")
(help @askchoice-help)
(choices "Yes"
"No")
(default 0)
)
)
(if (= #patch 0)
((run "YamOpenURLPatch"))
)
)
)
)
)
(if (not (exists @hurlfile-dest (noreq)))
((abort "You did not locate the YAM directory and program correctly!\nPlease try again...\n"))
)
)
)
;-------------- Choice #2 = Install to User's system instead ---------------
(if (= #yamchoice 1)
(
(set #homedir "c:")
(set #homedir
(askdir
(prompt "Where do you want to install Hurl to?")
(help "Please choose a dirctory to install Hurl to. C: is a good choice.")